home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / sign.sda / SIGN LANGUAGE (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  4KB  |  142 lines
  1. 10 REM   SIGN LANGUAGE
  2. 12 IFX=0THENPRINT"[147][144]"SPC(6)"[206]OW WARMING UP THE FINGERS..."
  3. 13 POKE53281,1:POKE53280,5
  4. 20 IFX=0THENX=1:LOAD"UNPACKER",8,1
  5. 30 IFX=1THENX=2:LOAD"ALPHA.LNK",8,1
  6. 35 IFX=2THENX=3:LOAD"HI-RES TEXT.O",8,1
  7. 40 POKE52,106: REM FRETOP TO PROTECT SHPS
  8. 42 POKE56,64:CLR: REM MOVE BASIC DOWN
  9. 50 CLR:DIMS(25)
  10. 55 FORX=0TO25:IFX=9THEN58
  11. 57 S(X)=X:IFX>8THENS(X)=X-1
  12. 58 NEXT:SP=200:SS$="MEDIUM"
  13. 60 GOSUB10000:PRINT""TAB(10)"[158][211]IGN [204]ANGUAGE [212]UTOR"
  14. 65 PRINTTAB(12)"BY [193]LAN [199]ARDNER"
  15. 66 PRINTTAB(9)"[199]RAPHICS BY [202]ERRY [202]ONES"
  16. 70 :
  17. 80 PRINT"[200]ERE ARE YOUR OPTIONS:"
  18. 82 PRINT" [212][146]RANSLATE TO [211]IGN [204]ANGUAGE"
  19. 84 PRINT" [209][146]UIZ [205]ODE"
  20. 86 PRINT" [195][146]HANGE [212]RANSLATE [211]PEED"
  21. 87 PRINT" [210][146] TO [209][213][201][212]"
  22. 88 PRINT"[215]HICH WOULD YOU LIKE?";
  23. 90 POKE198,0:WAIT198,1:GETA$:IFA$<>"T"ANDA$<>"Q"ANDA$<>"C"ANDA$<>"R"THEN90
  24. 95 :
  25. 97 IFA$="T"THEN1000
  26. 98 IFA$="Q"THEN2000
  27. 99 IFA$="C"THEN4000
  28. 100 SYS49152
  29. 1000 REM   TRANSLATE TO SIGN LANGUAGE
  30. 1010 PRINT"[147]  [204]ETTERS TO [211]IGN [204]ANGUAGE [212]RANSLATION"
  31. 1020 PRINT"  [207].[203]., [217]OU SUPPLY A PHRASE AND [201]'LL"
  32. 1022 PRINT"TRANSLATE IT TO SIGN LANGUAGE BEFORE"
  33. 1024 PRINT"YOUR VERY EYES OR JUST PRESS [210][197][212][213][210][206] TO RETURN TO [205]AIN [205]ENU."
  34. 1030 PRINT"[197]NTER YOUR PHRASE. (UP TO 80 CHARACTERS)"
  35. 1040 F$="":GOSUB24800:F$=S$:IFF$=""THEN60
  36. 1050 POKE249,224:POKE250,204
  37. 1055 POKE251,0:POKE252,64:POKE253,0:POKE254,0:POKE255,29:SYS51462
  38. 1060 POKE253,12:POKE254,6:SYS51459:FORDL=1TO400:NEXT:S$=""
  39. 1065 :
  40. 1070 FORX=1TOLEN(F$)
  41. 1080 A$=MID$(F$,X,1):A=ASC(A$+CHR$(0))
  42. 1090 IFA>128THENA$=CHR$(A-128)
  43. 1100 IFA$<"A"ORA$>"Z"THEN1130
  44. 1105 IFA$=S$ORS=25THENPOKE253,0:POKE254,0:POKE255,29:SYS51462
  45. 1107 SYS50759,CHR$(ASC(A$)+128),152,168:
  46. 1108 POKE249,224:POKE250,204
  47. 1109 POKE251,0:POKE252,64:POKE253,12:POKE254,6
  48. 1110 A=ASC(A$)-65:IFA=9THENGOSUB3000:GOTO1122 :REM "J"
  49. 1112 IFA=25THENGOSUB3500:GOTO1122 :REM "Z"
  50. 1114 POKE253,12:POKE254,6:POKE255,S(A):SYS51462
  51. 1122 POKE253,12:POKE254,6
  52. 1130 FORDL=0TOSP:NEXTDL
  53. 1135 S$=A$:S=A:NEXT
  54. 1140 :
  55. 1145 SYS50759,"PRESS A KEY TO CONTINUE",64,180
  56. 1150 POKE198,0:WAIT198,1:POKE198,0:SYS51459:GOTO1000
  57. 2000 REM   QUIZ MODE
  58. 2010 PRINT"[147]"
  59. 2020 PRINT"  [201]N THIS MODE, [201] WILL SHOW YOU A"
  60. 2022 PRINT"LETTER IN SIGN LANGUAGE AND ASK YOU TO"
  61. 2024 PRINT"TELL ME WHAT LETTER YOU JUST SAW."
  62. 2026 PRINT"[208]RETTY SIMPLE, HUH?"
  63. 2028 PRINT"  [207]H, BY THE WAY... [201] [215][201][204][204] BE KEEPING"
  64. 2030 PRINT"UP WITH YOUR PROGRESS."
  65. 2040 PRINT"   <[208]RESS A KEY WHEN YOU ARE READY.>"
  66. 2045 POKE198,0:WAIT198,1:POKE198,0:PRINT"[147]";:FORDL=1TO50:NEXTDL
  67. 2050 POKE249,224:POKE250,204:POKE251,0:POKE252,64
  68. 2060 NA=0:NW=0:POKE253,0:POKE254,0:POKE255,29:SYS51462:POKE253,12:POKE254,6
  69. 2070 POKE253,0:POKE254,0:POKE255,29:SYS51462:POKE253,12:POKE254,6
  70. 2072 SYS51459:POKE253,12:POKE254,6:A=INT(RND(1)*26)
  71. 2080 IFA=9THENGOSUB3000:GOTO2100
  72. 2082 IFA=25THENGOSUB3500:GOTO2100
  73. 2090 POKE255,S(A):SYS51462
  74. 2100 FORDL=1TOSP*2:NEXT:NA=NA+1
  75. 2110 SYS51459:PRINT"[147][215]HICH LETTER WAS THAT ? ";
  76. 2112 POKE198,0:WAIT198,1:GETF$:PRINTF$
  77. 2120 IFASC(F$+CHR$(0))=65+ATHENPRINT"[212]HAT'S CORRECT...":GOTO2140
  78. 2130 PRINT"[212]HAT'S WRONG... [212]HE LETTER WAS: ";CHR$(A+193):NW=NW+1
  79. 2140 PRINT"       <[208]RESS A KEY TO CONTINUE>"
  80. 2145 PRINT"          <[208]RESS '[209]' TO [209]UIT>"
  81. 2150 POKE198,0:WAIT198,1:GETA$:IFA$="Q"THEN2200
  82. 2160 PRINT"[147]";:FORDL=1TO50:NEXTDL:GOTO2070
  83. 2200 PRINT" [207]UT OF"NA"LETTERS";:IFNA=1THENPRINT"[157]";
  84. 2210 PRINT" TESTED, YOU GOT"
  85. 2220 PRINTNA-NW"CORRECT."
  86. 2230 :
  87. 2240 AV=(NA-NW)/NA:PRINT
  88. 2250 IFAV>.9THENPRINT"[212]HAT'S VERY GOOD.":GOTO2300
  89. 2255 IFAV>.8THENPRINT"[212]HAT'S NOT TOO SHABBY.":GOTO2300
  90. 2260 IFAV>.7THENPRINT"[215]ELL, YOU'RE GETTING THERE.":GOTO2300
  91. 2265 IFAV>.6THENPRINT"[212]HAT'S REALLY NOT THAT GOOD.":GOTO2300
  92. 2270 PRINT"[212]ODAY'S NOT YOUR DAY, IS IT?"
  93. 2300 PRINT"    <[208]RESS A KEY TO GO TO THE MENU.>"
  94. 2310 POKE198,0:WAIT198,1:POKE198,0:GOTO60
  95. 2999 END
  96. 3000 REM   DISPLAY "J"
  97. 3005 POKE253,12:POKE254,6
  98. 3010 POKE255,25:SYS51462
  99. 3012 POKE255,26:SYS51462
  100. 3014 POKE255,27:SYS51462
  101. 3016 POKE255,28:SYS51462
  102. 3018 RETURN
  103. 3500 REM   DISPLAY "Z"
  104. 3510 POKE253,12:POKE254,6
  105. 3515 POKE255,S(A):SYS51462
  106. 3517 FOR MO=12 TO 15:POKE253,MO:SYS51462::NEXT
  107. 3520 H=6
  108. 3530 FOR MO=15 TO 12 STEP-1:POKE253,MO:POKE254,H:SYS51462:H=H+1:NEXT
  109. 3540 FOR MO=12 TO 15:POKE253,MO:SYS51462:NEXT
  110. 3550 RETURN
  111. 4000 REM  CHANGE TRANSLATE SPEED
  112. 4010 PRINT"[147]       [208]RESENT SPEED IS "SS$"."
  113. 4015 PRINT"   [207]PTIONS ARE [211]LOW, [205]EDIUM, OR [198]AST"
  114. 4020 PRINT"     [211]ELECT NEW SPEED: [211], [205], OR [198]"
  115. 4022 POKE198,0:WAIT198,1:GETSP$:IFSP$<>"S"ANDSP$<>"M"ANDSP$<>"F"THEN4022
  116. 4030 IFSP$="S"THENSS$="SLOW":SP=500
  117. 4032 IFSP$="M"THENSS$="MEDIUM":SP=200
  118. 4034 IFSP$="F"THENSS$="FAST":SP=50
  119. 4050 GOTO60
  120. 9998 REM *** BORDER ***
  121. 10000 POKE53281,0:POKE53280,6
  122. 10005 PRINT"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  123. 10010 FORT=1TO23:PRINT"[221][157][157][221]";:NEXT
  124. 10020 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":POKE2023,125
  125. 10030 POKE2023+54272,1:RETURN
  126. 24800 L$="A":H$="Z":L=79:GOSUB25000:RETURN
  127. 24900 L$="A":H$="Z":L=79:GOSUB25000:RETURN
  128. 24998 REM *** INPUT STRING ***
  129. 25000 LS=0:S$=""
  130. 25005 PRINT" [157]>[157]";
  131. 25010 GETR$:IFR$<>""THEN25040
  132. 25020 PRINT" [157]<[157]";
  133. 25030 GETR$:IFR$=""THEN25005
  134. 25040 IFR$=CHR$(20)THEN25200
  135. 25045 IFR$=CHR$(13)THEN RETURN
  136. 25050 IF(R$<L$ORR$>H$)ANDR$<>" "THEN25005
  137. 25055 LS=LS+1:IFLS>LTHENLS=L:GOTO25005
  138. 25060 S$=S$+R$:PRINTR$;:GOTO25005
  139. 25200 LS=LS-1:IFLS<0THENLS=0:GOTO25220
  140. 25210 PRINT"[157]  [157][157]";
  141. 25220 S$=LEFT$(S$,LS):GOTO25005
  142.